object PenDialog: TPenDialog
  Left = 437
  Top = 286
  Width = 277
  Height = 163
  ActiveControl = CBVisible
  BorderIcons = [biSystemMenu]
  Caption = 'Rahmeneditor'
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object LWidth: TLabel
    Left = 176
    Top = 38
    Width = 31
    Height = 13
    Alignment = taRightJustify
    Caption = '&Breite:'
    FocusControl = SEWidth
  end
  object LStyle: TLabel
    Left = 99
    Top = 9
    Width = 26
    Height = 13
    Alignment = taRightJustify
    Caption = '&Stil:'
    FocusControl = CBStyle
  end
  object LSpace: TLabel
    Left = 173
    Top = 70
    Width = 34
    Height = 13
    Alignment = taRightJustify
    Caption = '&Abstand:'
    FocusControl = ESpace
  end
  object CBVisible: TCheckBox
    Left = 6
    Top = 8
    Width = 69
    Height = 17
    HelpContext = 680
    Caption = '&Sichtbar:'
    TabOrder = 0
    OnClick = CBVisibleClick
  end
  object SEWidth: TEdit
    Left = 214
    Top = 34
    Width = 33
    Height = 21
    HelpContext = 1457
    TabOrder = 3
    Text = '1'
    OnChange = SEWidthChange
  end
  object BOk: TButton
    Left = 104
    Top = 104
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 5
  end
  object BCancel: TButton
    Left = 188
    Top = 104
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Abbrechen'
    ModalResult = 2
    TabOrder = 6
    OnClick = BCancelClick
  end
  object UDWidth: TUpDown
    Left = 247
    Top = 34
    Width = 15
    Height = 21
    HelpContext = 1457
    Associate = SEWidth
    Min = 1
    Position = 1
    TabOrder = 4
  end
  object CBStyle: TComboFlat
    Left = 128
    Top = 6
    Width = 135
    HelpContext = 1457
    Style = csOwnerDrawFixed
    ItemHeight = 15
    TabOrder = 1
    OnChange = CBStyleChange
    OnDrawItem = CBStyleDrawItem
    Items.Strings = (
      'durchgezogen'
      'Strich'
      'Punkt'
      'Strich Punkt'
      'Strich Punkt Punkt')
  end
  object BColor: TButtonColor
    Left = 6
    Top = 34
    HelpContext = 1457
    Caption = '&Farbe'
    TabOrder = 2
    OnClick = BColorClick
  end
  object CBEndStyle: TComboFlat
    Left = 6
    Top = 73
    Width = 68
    HelpContext = 1828
    TabOrder = 7
    OnChange = CBEndStyleChange
    Items.Strings = (
      'Rund'
      'Eckig'
      'Flach')
  end
  object ESpace: TEdit
    Left = 214
    Top = 66
    Width = 33
    Height = 21
    HelpContext = 1457
    Enabled = False
    TabOrder = 8
    Text = '1'
    OnChange = ESpaceChange
  end
  object UDSpace: TUpDown
    Left = 247
    Top = 66
    Width = 15
    Height = 21
    HelpContext = 1457
    Associate = ESpace
    Enabled = False
    Min = 1
    Position = 1
    TabOrder = 9
  end
end